(define t-1
  (print (let fact ((n 7))
	   (if (= 0 n)
	       1
	       (* n (fact (- n 1)))))))
